home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
pinwheel f
< prev
next >
Wrap
Text File
|
1999-06-15
|
822b
|
26 lines
Category: Filter Factory Gallery L
Title: Pinwheel F...
Author: Greg Schorno
Copyright: Copyright © Greg Schorno
ctl[0]: Spokes 1
ctl[1]: Spokes 2
ctl[2]: Operation
ctl[3]: Twist 1
ctl[4]: Twist 2
ctl[5]: Red
ctl[6]:Green
ctl[7]: Blue
val[0]: 220
val[1]: 205
val[2]: 185
val[3]: 0
val[4]: 2
val[5]: 190
val[6]: 152
val[7]: 124
R:put((d+m*(m-val(3,0,m*2)/M)*val(3,-128,128)/256)*val(0,1,24)%D,0),put((sin(get(0)))/4,0),put((d+m*(m-val(4,0,m*2)/M)*val(4,-128,128)/256)*val(1,1,24)%D,1),put((sin(get(1)))/4,1),scl(ctl(5),64,192,ctl(2)&128?min(get(0),get(1)):get(0)-get(1),ctl(2)&16?max(get(0),get(1)):get(1)-get(0))
G:ctl(2)&64?scl(ctl(6),64,192,min(get(0),get(1)),max(get(0),get(1))):ctl(6)*abs(get(0)-get(1))/128
B:ctl(2)&32?scl(ctl(7),64,192,min(get(0),get(1)),max(get(0),get(1))):ctl(7)*abs(get(0)-get(1))/128
A:a